0 REM MONOLPOLE BY JOHN O'HARE
1 REM   ALL RIGHTS RESERVED
2 REM PERMISSION TO USE, NOT SELL.
3 REM COLOR AND SOUND ADDED BY:               TIM BORION AND SAL OEPER
4 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB700:GOSUB162:TN=832:TT=886:PRINT"
5 PG$[178]"  PURPLE, LT. BLUE, MAROON, ORANGE,       RED, YELLOW, GREEN, DK. BLUE"
6 [134]PN$(42),D(42,1),CH$(16),CC$(16),P(42,9),PT$(42),C$(42),PS(42),H(42),MG(42)
7 [134] P$(2),PL(2),O(2),JT(2),M(2),CJ(2)
8 [141]23:[133]"DO YOU WANT AUCTION RULE (Y OR N)";Q$:[139][200](Q$,1)[178]"Y"[167]AF[178]1
9 [133]"WANT FREE PARKING JACKPOT OPTION ";Q$:[139][200](Q$,1)[178]"Y"[167]PF[178]1:FP[178]500
10 M(1)[178]1500:M(2)[178]1500:PL(1)[178]1:PL(2)[178]1:DV[178]2
11 CD$[178]"":CR$[178]""
12 ZQ[178][187]([171]TI):X1[178]8:Y1[178]10:X2[178]23:Y2[178]10:RX[178]6:RY[178]18
13 E$[178]"                  WAIT":RM$[178]"HIT  'R' OR 'T'WAIT"
14 [153]"LOADOPEN     PLEASE WAIT WHILE I SET UP."
15 [129]I[178]1[164]4:P(6[170]((I[171]1)[172]10),8)[178]100:[130]:P(13,8)[178]75:P(29,8)[178]75
16 CH[178][181]([187](1)[172]16)[170]1:CC[178][181]([187](1)[172]16)[170]1
17 [129]I[178]1[164]41:[129]J[178]0[164]1:[135]D(I,J):[130]:[130]
18 P$(1)[178]"   PLAYER 1WAIT":P$(2)[178]"   PLAYER 2WAIT"
19 [129]I[178]1[164]41:[135]PN$(I):[130]:[129]I[178]1[164]41:[135]PT$(I):[139]PT$(I)[179][177]"P"[167]21
20 [135]C$(I):[129]J[178]1[164]9:[135]P(I,J):[130]J
21 [130]I
22 [129]I[178]1[164]16:[135]CH$(I):[130]:[129]I[178]1[164]16:[135]CC$(I):[130]:[137]32
23 [153]"CONT +SIN  SINWAITSGN+USRUSRUSRSGN+SIN   SGN+USRUSRUSRSGN+USRUSR(null)+USRUSRUSRSGN+    (null)USR"
24 [153]" + SINSINWAIT SGN+   SGN+ SIN  SGN+   SGN+ANDANDSQR+   SGN+    (null)"
25 [153]" +    SGN+   SGN+  SIN SGN+   SGN+   +   SGN+    (null)"
26 [153]" +    SGN+ANDANDANDSGN+   SINSGN+ANDANDANDSGN+   +ANDANDANDSGN+ANDANDAND (null)AND"
27 [153][163]19);"BY"
28 [153]"               JOHN O'HARE"
29 [153]"HIT 'R' TO ROLL DICE AND 'T' FOR        TRANSACTION MENU."
30 [153]" '0' CAN BE USED TO RETURN FROM MOST     SUBROUTINES"
31 [153]:[153]"DEVELOPED PROPERTIES MAY NOT BE TRADED.":[153]:[142]
32 [151]54277,79:[151]54284,79:[151]54291,79
33 [151]54278,248:[151]54286,248:[151]54292,248
34 [151]54276,33:[151]54288,33:[151]54290,33
35 G(1)[178]54272:G(2)[178]54273:G(3)[178]54279:G(4)[178]54280:G(5)[178]54286:G(6)[178]54287
36 [129]I[178]1[164]6:[151]G(I),0:[130]
37 [151]54296,15:[139][194](832)[179][177]160[167][141]652
38 [141]135:[129]PK[178]1[164]2:[151]D(1,PK[171]1),48[170]PK:O(PK)[178]D(1,PK[171]1):PT[178]PK:[130]:[141]661
39 [141]165:[139]R1[178]R2[167]39
40 PT[178](R1[177]R2)[170]2
41 [151]D(PL(1),0),49:[151]D(PL(2),1),50
42 PT$[178][196](PT)
43 MS$[178]"PLAYER"[170]PT$[170]" STARTSWAIT"
44 X[178]RX:Y[178]RY:Z$[178]MS$:[141]160:[129]DE[178]1[164]1500:[130]:Z$[178]E$:[141]160:[137]65
45 DV[178]2:MF[178]0:JB[178]0
46 [139]PL(PT)[178]41[167]56
47 JT(PT)[178]0
48 [141]165:DF[178]1
49 [139]DB[178]3[167][158]TN:[141]325:[158]TT:[141]661:[137]59
50 [129]M[178]1[164]DR:PL(PT)[178]PL(PT)[170]1
51 [151]O(PT),160:[139]PL(PT)[177]40[167]PL(PT)[178]PL(PT)[171]40:[158]TN:[141]175:[158]TT
52 [151]D(PL(PT),PT[171]1),48[170]PT
53 O(PT)[178]D(PL(PT),PT[171]1)
54 [129]T[178]1[164]50[169]6[170]PT:[129]I[178]1[164]6:[151]G(I),T:[130]:[130]
55 [129]I[178]1[164]6:[151]G(I),0:[130]:[130]M
56 [151]D(PL(PT),PT[171]1),48[170]PT:[141]661
57 [158]TN:[141]182:[158]TT:[141]661:[139]M(PT)[179]0[167][141]635:[158]TT
58 [139]PL(PT)[178]11[167][151]D(41,PT[171]1),160:[151]D(11,PT[171]1),48[170]PT
59 [139]JB[167]JB[178]0:[151]O(PT),160:O(PT)[178]D(PL(PT),PT[171]1):[137]50
60 [139]MF[167]MF[178]0:[151]O(PT),160:O(PT)[178]D(PL(PT),PT[171]1):[137]56
61 [139]JE[167]JE[178]0:[151]O(PT),160:O(PT)[178]D(PL(PT),PT[171]1):[137]65
62 [139]JF[167]JF[178]0:[151]D(PL(PT),PT[171]1),48[170]PT:[151]O(PT),160:O(PT)[178]D(PL(PT),PT[171]1)
63 [139]DB[167]65
64 PT[178]3[171]PT
65 Z$[178]P$(PT):X[178]RX:Y[178]RY[171]1:[141]160
66 Z$[178]RM$:X[178]RX:Y[178]RY:[141]160
67 [161]BC$:[139]BC$[179][177]""[167]67
68 [161]A$:[139]A$[178]""[167]68
69 [139]A$[178]"T"[167][158]TN:[141]423:[158]TT:[141]661:[137]65
70 Z$[178]E$:X[178]RX:Y[178]RY:[141]160
71 [137]45
72 [131]1978,1938,1974,1973,1931,1930,1968,1967,1925,1924,1922,1921
73 [131]1959,1958,1956,1955,1953,1952,1950,1949,1944,1904
74 [131]1824,1825,1744,1745,1664,1665,1584,1585,1505,1506,1424,1425
75 [131]1346,1347,1264,1265,1184,1185,1104,1105
76 [131]1029,1030,1032,1033,1035,1036,1038,1039,1081,1082,1044,1045
77 [131]1047,1048,1130,1131,1053,1054,1096,1097
78 [131]1217,1218,1297,1298,1377,1378,1457,1458,1536,1537,1617,1618
79 [131]1697,1698,1777,1778,1857,1858,1906,1907
80 [131]">GO<LIST","LISTMEDITERRANEAN AVE.LIST","SYSCOMMUNITY CHESTLIST","LISTBALTIC AVE.LIST"
81 [131]"CONTINCOME TAXLIST"
82 [131]"PRINT#READING R.R.LIST","OPENORIENTAL AVE.LIST","DEFCHANCELIST","OPENVERMONT AVE.LIST"
83 [131]"OPENCONNECTICUT AVE.LIST"
84 [131]"DEFJUST VISITINGLIST","CLRST.CHARLES PLACELIST","PRINTELECTRIC COMPANYLIST","CLRSTATES AVE.LIST"
85 [131]"CLRVIRGINIA AVE.LIST","PRINT#PENNSYLVANIA R.R.LIST","FORST. JAMES PLACELIST"
86 [131]"SYSCOMMUNITY CHESTLIST"
87 [131]"FORTENNESSEE AVE.LIST","FORNEW YORK AVE.LIST","VERIFYFREE PARKINGLIST","KENTUCKY AVE.LIST"
88 [131]"DEFCHANCELIST","INDIANA AVE.LIST","ILLINOIS AVE.LIST","PRINT#B & O  R.R.LIST"
89 [131]"SYSATLANTIC AVE.LIST"
90 [131]"SYSVENTNOR AVE.LIST","PRINTWATER WORKSLIST","SYSMARVIN GARDENSLIST","DEFGOLIST CONTTOLIST JAILLIST"
91 [131]"PACIFIC AVE.LIST"
92 [131]"N. CAROLINA AVE.LIST","SYSCOMMUNITY CHESTLIST","PENNSYLVANIA AVE.LIST"
93 [131]"PRINT#SHORT LINELIST"
94 [131]"DEFCHANCELIST","PARK PLACELIST","CONTLUXURY TAXLIST","BOARDWALKLIST","DEFIN JAILLIST"
95 [131]GO,P,PURPLE,60,2,10,30,90,160,250,30,50,CC,P,PURPLE,60,4,20,60,180,320
96 [131]450,30,50,IT,RR,P,LT. BLUE,100,6,30,90,270,400,550,50,50,CH,P,LT. BLUE
97 [131] 100,6,30,90,270,400,550,50,50,P,LT. BLUE,120,8,40,100,300,450,600,60,50
98 [131]JV,P,MAROON,140,10,50,150,450,625,750,70,100,U,P,MAROON,140,10,50,150,450
99 [131]625,750,70,100,P,MAROON,160,12,60,180,500,700,900,80,100,RR
100 [131]P,ORANGE,180,14,70,200,550,750,950,90,100,CC,P,ORANGE
101 [131] 180,14,70,200,550,750,950,90,100
102 [131]P,ORANGE,200,16,80,220,600,800,1000,100,100,FP,P,RED
103 [131] 220,18,90,250,700,875
104 [131]1050,110,150,CH,P,RED,220,18,90,250,700,875,1050,110,150,P,RED,240
105 [131] 20,100,300
106 [131]750,925,1100,120,150,RR,P,YELLOW,260,22,110,330,800,975,1150,130,150
107 [131] P,YELLOW,260
108 [131]22,110,330,800,975,1150,130,150,U,P,YELLOW,280,24,120,360,850,1025,1200
109 [131] 140
110 [131]150,GTJ,P,GREEN,300,26,130,390,900,1100,1275,150,200,P,GREEN
111 [131] 300,26,130,390,900
112 [131]1100,1275,150,200,CC,P,GREEN,320,28,150,450,1000,1200,1400
113 [131] 160,200,RR,CH
114 [131]P,DK. BLUE,350,35,175,500,1100,1300,1500,175,200,LT,P,DK. BLUE
115 [131] 400,50,200,600,1400
116 [131]1700,2000,200,200,IJ
117 [131] PAY POOR TAX  $15,GO DIRECTLY TO JAIL,ADVANCE TO GO(COLLECT $200)
118 [131] YOUR BUILDING AND LOAN MATURES            COLLECT $150
119 [131] ADVANCE TOKEN TO NEAREST R.R.           $ PAY OWNER TWICE RENT
120 [131]ADVANCE TO ILLINOIS AVE.,BANK PAYS YOU DIVIDEND OF $50
121 [131]GET OUT OF JAIL FREE,PAY EACH PLAYER $50,ADVANCE TO ST. CHARLES PLACE
122 [131]TAKE A RIDE ON THE READING,GO BACK THREE SPACES,ADVANCE TO BOARDWALK
123 [131]MAKE GENERAL REPAIRS  $25 FOR EACH HOUSE$100 FOR EACH HOTEL
124 [131] ADVANCE TOKEN TO NEAREST R.R.           $ PAY OWNER TWICE RENT
125 [131] ADVANCE TOKEN TO NEAREST UTILITY        ROLL DICE & PAY 10*# SHOWN
126 [131] GET OUT OF JAIL FREE,GO TO JAIL,ADVANCE TO GO(COLLECT $200)
127 [131] FROM SALE OF STOCK YOU GET $45,COLLECT $50 FROM EVERY PLAYER
128 [131] RECEIVE FOR SERVICES $25,PAY SCHOOL TAX OF $150,TAX REFUND COLLECT $20
129 [131] ASSESSED FOR REPAIRS  $40 PER HOUSE     $115 PER HOTEL
130 [131] YOU HAVE WON SECOND PRIZE IN A BEAUTY   CONTEST COLLECT $10
131 [131] YOU INHERIT $100,XMAS FUND MATURES COLLECT $100,PAY HOSPITAL $100
132 [131] BANK ERROR  IN YOUR FAVOR COLLECT $200,DOCTORS FEE PAY $50
133 [131] LIFE INSURANCE MATURES COLLECT $100
134 [137]651
135 [153]"LOADVERIFY   CLOSELISTFNCLOSECLOSEFNCLOSECLOSEFNCLOSECLOSEFNCLOSECLOSEPRINT#SINSINSINLISTFNCLOSECLOSEFN  FNPRINTWWLISTFNCLOSECLOSEDEFFNGTJWAIT"
136 [153]"VERIFYCLOSEFPCLOSELISTFNCLOSECLOSEFNDEF?LISTCLOSEFNCLOSECLOSEFNCLOSECLOSEPRINT#FNCLOSECLOSELISTFNCLOSECLOSEFNCLOSE FNPRINTOR>LISTFNCLOSECLOSECONTFN   WAIT"
137 [153]"VERIFY   CLOSE   LISTFNCLOSECLOSE CLOSECLOSEFN  PRINT#B&OSYSFN  FNCLOSECLOSELISTFNCLOSECLOSESYS CLOSECLOSEFNVAL(null) LISTWAIT"
138 [153]"TAB(TAB(TAB(FOR LIST(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( LISTTAB(TAB(TAB(WAIT"
139 [153]"   FOR LISTFN  (null)(null)                       LISTCLOSE  WAIT"
140 [153]"TAB(TAB(TAB(FORTAB(LISTFN SYS(null)  LIST(null) 1-                  TAB(LISTTAB(TAB(TAB(WAIT"
141 [153]"   FOR LISTFN(null)SYSC CLIST(null)                      LIST   WAIT"
142 [153]"TAB(TAB(TAB(TAB(FN(null)SYS  (null)LIST  2-                  (null)TAB(TAB(TAB(WAIT"
143 [153]"SYSCCLIST  FN (null)(null)                       SYSCCLIST  WAIT"
144 [153]"TAB(TAB(TAB(FOR LISTFN   TOTOTO            TOTOTO      LISTTAB(TAB(TAB(WAIT"
145 [153]"   FOR LISTFN  THEN   LISTFN          THEN   LISTFN     LIST   WAIT"
146 [153]"PRINT#SINPRSINLISTFN  THEN   LISTFN MONOPOLELIST THEN   LISTFN   THENPRINT#SINSLSINWAIT"
147 [153]"SIN  SINLISTFN  THEN   LISTFN  CBM-64LIST  THEN   LISTFN   THENPRINT#SIN  SINLISTWAIT"
148 [153]"TAB(TAB(TAB(CLR LISTFN   TAB(TAB(TAB(            TAB(TAB(TAB(     (null)TAB(TAB(TAB(WAIT"
149 [153]"   CLR LISTFN                          FNDEF?LIST  WAIT"
150 [153]"TAB(TAB(TAB(CLRTAB(LISTFN                      (null)(null)   LISTTAB(TAB(TAB(WAIT"
151 [153]"   CLR LISTFN                     DEF(null)  LIST(null)  LIST   WAIT"
152 [153]"TAB(PRINTECLISTTAB(FN                    (null)DEF???LIST(null) CONTTAXLISTTAB(WAIT"
153 [153]"    FN                    (null)DEF  (null)LIST  FN   WAIT"
154 [153]"TAB(TAB(TAB(CLR LISTFN                     (null)(null)    LISTTAB(TAB(TAB(WAIT"
155 [153]"   CLR LISTFN                           LIST   WAIT"
156 [153]"DEFTAB(LIST(null)TAB(TAB(OPEN   FN  LIST(null)TAB(TAB(OPEN   PRINT#(null)RRLIST(null)TAB(TAB(WAIT   (null)TAB(TAB(WAIT   (null)TAB(TAB(TAB(WAIT"
157 [153]"DEF LISTFN  FN  FN  FNDEF?LISTCLOSEFNCLOSECLOSEPRINT#FNCLOSECLOSELISTFNCLOSECLOSEFNCLOSECLOSEFN  FN  FNGO WAIT"
158 [153]"DEF TAB(TAB(TAB(LISTFN  FN  FN  FN  PRINT#SINSINSINCONTTAXLISTFN  FNSYSCCLISTFN  FN_TAN WAIT"
159 [142]
160 [153]"LIST";[200](CR$,X);[200](CD$,Y);Z$;""
161 [142]
162 DC$(1)[178]"   CMDCMDCMD (null) CMDCMDCMD   WAIT":DC$(2)[178]"  (null)CMDCMDCMD   CMDCMDCMD(null)  WAIT"
163 DC$(3)[178]"(null)  CMDCMDCMD (null) CMDCMDCMD  (null)WAIT":DC$(4)[178]"(null) (null)CMDCMDCMD   CMDCMDCMD(null) (null)WAIT"
164 DC$(5)[178]"(null) (null)CMDCMDCMD (null) CMDCMDCMD(null) (null)WAIT":DC$(6)[178]"(null) (null)CMDCMDCMD(null) (null)CMDCMDCMD(null) (null)WAIT":[142]
165 CT[178]0
166 R1[178][181]([187](1)[172]6)[170]1:R2[178][181]([187](1)[172]6)[170]1:DR[178]R1[170]R2
167 [129]I[178]1[164]6:[151]G(I),DR[172]10:[130]
168 [153]"";[200](CR$,X1);[200](CD$,Y1);DC$(R1)
169 [153]"";[200](CR$,X2);[200](CD$,Y2);DC$(R2)
170 [129]I[178]1[164]6:[151]G(I),0:[130]
171 CT[178]CT[170]1:[139]CT[179]7[167][129]DELAY[178]1[164]75:[130]:[137]166
172 [139]R1[178]R2[167]DB[178]DB[170]1:[137]174
173 DB[178]0
174 [142]
175 [153]"LOAD":[153]
176 [153]" COLLECT $200 AS YOU PASS  *NEW*RNDCMDCMDCMDCMDCMDLOGCOSLOGCOSWAIT"
177 M(PT)[178]M(PT)[170]200:[153]:[153]:[153]
178 [153]"HIT ANY KEY TO CONTINUEWAIT"
179 [161]W$:[139]W$[179][177]""[167]179
180 [161]K$:[139]K$[178]""[167]180
181 [142]
182 [151]198,0:PT$[178]PT$(PL(PT))
183 [139]PT$[178]"P"[167]195
184 [139]PT$[178]"RR"[167]244
185 [139]PT$[178]"GO"[167][142]
186 [139]PT$[178]"U"[167]280
187 [139]PT$[178]"FP"[167]311
188 [139]PT$[178]"JV"[167][142]
189 [139]PT$[178]"GTJ"[167]325
190 [139]PT$[178]"IT"[167]336
191 [139]PT$[178]"LT"[167]334
192 [139]PT$[178]"CC"[167]338
193 [139]PT$[178]"CH"[167]362
194 [139]PT$[178]"IJ"[167]403
195 [153]"LOAD";[163]15);"TITLE DEED"
196 [139]GF[167]200
197 [153]" PLAYER"PT
198 PO[178]3[171]PT
199 PL[178]PL(PT):P7[178]PT
200 [153][163]20[171]([195](PN$(PL))[171]1)[173]2)"";PN$(PL)"WAIT"
201 [153][200](PN$(PL),1):QR[178][194](646):[151]53280,QR:[153]"ONON"
202 [153]
203 [153]"                 RENT $";P(PL,2)
204 [153]"           WITH 1 HOUSE  $";P(PL,3)
205 [153]"           WITH 2 HOUSES  ";P(PL,4)
206 [153]"           WITH 3 HOUSES  ";P(PL,5)
207 [153]"           WITH 4 HOUSES  ";P(PL,6)
208 [153]"           WITH HOTEL  $";P(PL,7)
209 [153]
210 [153]"           MORTAGE VALUE  $";P(PL,8)
211 [153]"          HOUSES COST $";P(PL,9);"EACH"
212 [153]"      HOTELS, $";P(PL,9);". PLUS 4 HOUSES"
213 [139]GF[167][153]:[153]:[141]178:[151]53280,0:[142]
214 [153]:[129]I[178]1[164]41:[139]C$(PL)[178]C$(I)[175]I[179][177]PL[167][141]216
215 [130]:[137]218
216 [139]PS(I)[167][153]" "PN$(I)"  OWNED BY PLAYER #"PS(I):[142]
217 [153]" "PN$(I)" STILL FOR SALE.":[142]
218 [153]
219 [139]MG(PL)[178]1[167][153]" MORTAGED FOR $"P(PL,8)
220 [153]" COST   $";P(PL,1)
221 [139]PS(PL)[178]0[167]226
222 [153]" OWNEDWAIT BY PLAYER"PS(PL):[139]H(PL)[167][153]"WITH";
223 [139]H(PL)[179]5[167][153]H(PL)"HOUSES."
224 [139]H(PL)[178]5[167][153]" A HOTEL"
225 [137]231
226 [153]" YOU HAVE $";M(P7)
227 [153]" DO YOU WISH TO BUY THIS PROPERTY";:[133]"  SINCMDCMDCMD";A$:A$[178][200](A$,1)
228 [139]A$[178]"N"[167]237
229 [139]A$[179][177]"Y"[167][153]"ONON":[137]227
230 [153]" OK YOU BOUGHT ";PN$(PL)"":M(P7)[178]M(P7)[171]P(PL,1):PS(PL)[178]PT:[137]236
231 OW[178]P(PL,H(PL)[170]2):[139]PS(PL)[178]PT[167]236
232 [139]MG(PL)[167]236
233 P5[178]PO:P6[178]PS(PL):[141]238:[139]OA[167][139]H(PL)[178]0[167]OW[178]OW[172]2
234 M(PT)[178]M(PT)[171]OW:M(PS(PL))[178]M(PS(PL))[170]OW:[153]" YOU OWE $";OW
235 M(PS(PL))[178]M(PS(PL))[170]OW
236 [141]178:[151]53280,0:[142]
237 [141]619:[137]236
238 MG[178]0:OA[178]0:PC[178]0:[129]I[178]1[164]41:[139]C$(PL)[178]C$(I)[175]PS(I)[178]P5[167]PC[178]PC[170]1:[139]MG(I)[167]MG[178]MG
239 [130]
240 [139]PC[178]2[175]C$(PL)[178]"PURPLE"[167]OA[178]1:[142]
241 [139]PC[178]2[175]C$(PL)[178]"DK. BLUE"[167]OA[178]1:[142]
242 [139]PC[178]3[167]OA[178]1:[142]
243 [142]
244 [153]"LOAD":PL[178]PL(PT)
245 [153]"PLAYER"PT
246 [153]"                   DEF(null)PRINT# *WAIT"
247 [153]"                      WAIT"
248 [153]"                  (null)VERIFY(null) (null)"
249 [153]
250 [153][163]20[171][195](PN$(PL))[173]2)"";PN$(PL)"WAIT"
251 [151]54276,129:[151]54288,17:[151]54290,17
252 KO[178]129:[129]T[178]1[164]2:[129]I[178]1[164]6:[151]G(I),KO:[130]:[129]DL[178]1[164]400:[130]
253 [129]I[178]1[164]6:[151]G(I),0:[130]:[129]DL[178]1[164]60:[130]:[130]
254 [151]54276,33:[151]54288,33:[151]54290,33     
255 [153]:[153]"RENT                     $25"
256 [153]"IF 2 R.R.'S ARE OWNED     50"
257 [153]"IF 3 R.R.'S ARE OWNED    100"
258 [153]"IF 4 R.R.'S ARE OWNED    200"
259 [153]
260 [153]"MORTAGE VALUE            $100"
261 [153]:[139]MG(PL)[178]1[167][153]"MORTAGED FOR $100":[137]279
262 [153]"COST   $200"
263 [153]:[129]I[178]1[164]41:[139]PT$(I)[178]"RR"[167][141]265
264 [130]:[137]267
265 [139]PS(I)[167][153]PN$(I)" OWNED BY PLAYER #";PS(I):[142]
266 [153]PN$(I)" STILL FOR SALE.":[142]
267 [139]PS(PL)[167][153]"OWNEDWAIT BY PLAYER#";PS(PL):[137]275
268 [153]"YOU HAVE $"M(PT)
269 [153]"DO YOU WISH TO BUY IT";:[133]"  SINCMDCMDCMD";B$:B$[178][200](B$,1)
270 [139]B$[178]"N"[167][141]619:[137]279
271 [139]B$[179][177]"Y"[167][153]"ONON":[137]269
272 M(PT)[178]M(PT)[171]200:PS(PL)[178]PT
273 [153]"OK YOU BOUGHT IT"
274 [137]279
275 OW[178]0:O7[178]0
276 [139]PS(PL)[178]PT[167]279
277 OW[178]25:[129]I[178]6[164]36[169]10:[139]PT$(I)[178]"RR"[175]PS(I)[178]PS(PL)[167]OW[178]OW[172]2
278 [130]:OW[178]OW[173]DV:[153]"YOU OWE $";OW:M(PT)[178]M(PT)[171]OW:M(PS(PL))[178]M(PS(PL))[170]OW
279 [141]178:[142]
280 [153]"LOAD"
281 [153]"PLAYER"PT
282 [153]"            SYS(null)TAB((null)     PRINT#(null)(null)(null)    "
283 [153]"            SYS(null)DEF^SYS(null)    PRINT#-TAN>TANTANTANRIGHT$ "
284 [153]"             SYSFNFN    PRINT#-TANTANTANTANRIGHT$LEFT$ "
285 [153]"             SPC(          /EXP ":[153]
286 PL[178]PL(PT)
287 [153][163]20[171][195](PN$(PL))[173]2)"";PN$(PL)"WAIT"
288 [153]:[153]"IF ONE 'UTILITY IS OWNED PAY 4 TIMES THEAMOUNT SHOWN ON DICE"
289 [153]
290 [153]"IF BOTH OWNED PAY 10 (null) AMOUNT ON DICE"
291 D1[178][181]([187](1)[172]6)[170]1:D2[178][181]([187](1)[172]6)[170]1
292 [139]DF[167]D1[178]R1:D2[178]R2
293 [153]:[153]"MORTAGE VALUE  $75":[153]
294 [139]MG(PL)[178]1[167][153]"MORTAGED FOR $75":[137]310
295 [139]PS(42[171]PL)[167][153]PN$(42[171]PL)" OWNED BY PLAYER"PS(42[171]PL):[137]297
296 [153]PN$(42[171]PL)" STILL FOR SALE."
297 [153]:[139]PS(PL)[167][153]"OWNEDWAIT BY PLAYER#";PS(PL):[137]305
298 [153]"YOU HAVE $"M(PT)
299 [133]"DO YOU WISH TO BUY IT  SINCMDCMDCMD";B$:B$[178][200](B$,1)
300 [139]B$[178]"N"[167][141]619:[137]310
301 [139]B$[179][177]"Y"[167][153]"ONON":[137]299
302 [153]"OK YOU BOUGHT ";PN$(PL)""
303 M(PT)[178]M(PT)[171]150
304 PS(PL)[178]PT:[137]310
305 [139]PS(PL)[178]PT[167]310
306 [153]"DICE SHOW"D1"AND"D2"."
307 MT[178]4:[139]PS(13)[178]PS(PL)[175]PS(29)[178]PS(PL)[167]MT[178]10
308 [139]DF[178]0[167]MT[178]10
309 OW[178]MT[172](D1[170]D2):[153]"YOU OWE $";OW:M(PT)[178]M(PT)[171]OW:M(PS(PL))[178]M(PS(PL))[170]OW
310 MT[178]0:[141]178:[142]
311 [153]"LOAD"
312 [153]"                 FORFREE
313 PRINT"                [213][195][195][195][195][195][201]"
314 PRINT"                [194] [159][176][192][174] [200]
315 [153]"                (null) OPEN/TANEXP (null)
316 PRINT"                [200] [149][213][195][201] [194]
317 [153]"              (null)TANEXP VERIFYPEEKPRINT#(null)VERIFYLEFT$ /TANRIGHT$
318 PRINT"              [221]   [149][202][198][203]   [221]
319 [153]"              /TANPRINT#NOTTANTANTANTANTANPRINT#NOTTANEXP
320 PRINT"                [152][166]     [166]
321 [153]:[153]"                FORPARKING":[153]
322 [139]PF[178]0[167][141]178:[142]
323 [153]:[153]"       YOU GET THE FREE PARKING"
324 [153]"          JACKPOT OF $"FP"!":M(PT)[178]M(PT)[170]FP:FP[178]0:[153]:[141]178:[142]
325 [153]"LOAD";[163]15);"GO TO JAIL"
326 [139]DB[178]3[167][153]:[153]" FOR ROLLING DOUBLES 3 TIMES IN A ROW!":[153]
327 [153][163]16);"POKEOR======^":[129]I[178]1[164]5:[153][163]16);"(null)(null)(null)(null)(null)(null)(null)(null)":[130]
328 [153][163]16);"/>>>>>>EXP":[153]:PL(PT)[178]41:JF[178]1:DB[178]0
329 [129]KO[178]1[164]3:[129]T[178]60[164]110[169]1.7:[129]I[178]1[164]6:[151]G(I),T:[130]:[130]
330 [129]DL[178]1[164]10:[130]
331 [129]T[178]110[164]60[169][171]1.7:[129]I[178]1[164]6:[151]G(I),T:[130]:[130]:[130]
332 [129]I[178]1[164]6:[151]G(I),0:[130]
333 [153]"";:[141]178:[142]
334 [153]"LOAD";[163]15);"LUXURY TAX":[153]:[153][163]16);"PAY $75"
335 [153]:[153]:[153]:M(PT)[178]M(PT)[171]75:FP[178]FP[170]75:[141]178:[142]
336 [153]"LOAD";[163]15);"INCOME TAX":[153]:[153][163]16);"PAY $200"
337 [153]:[153]:[153]:M(PT)[178]M(PT)[171]200:FP[178]FP[170]200:[141]178:[142]
338 CC[178]CC[170]1:[139]CC[177]16[167]CC[178]CC[171]16
339 PO[178]3[171]PT:CC$[178]CC$(CC):[139]CC[178]1[175]CJ(1)[167]CC[178]CC[170]1:CC$[178]CC$(CC)
340 [153]"LOAD           SYSCOMMUNITY CHEST":[153]CC$""
341 [139]CC[178]1[167]CJ(1)[178]PT
342 [139]CC[178]2[167][141]178:[137]325
343 [139]CC[178]3[167]PL(PT)[178]1:MF[178]1:[141]178:[141]175:[142]
344 [139]CC[178]4[167]M(PT)[178]M(PT)[170]45
345 [139]CC[178]5[167]M(PT)[178]M(PT)[170]50:M(PO)[178]M(PO)[171]50
346 [139]CC[178]6[167]M(PT)[178]M(PT)[170]25
347 [139]CC[178]7[167]M(PT)[178]M(PT)[171]150:FP[178]FP[170]150
348 [139]CC[178]8[167]M(PT)[178]M(PT)[170]20
349 [139]CC[178]9[167][141]358
350 [139]CC[178]10[167]M(PT)[178]M(PT)[170]10
351 [139]CC[178]11[167]M(PT)[178]M(PT)[170]100
352 [139]CC[178]12[167]M(PT)[178]M(PT)[170]100
353 [139]CC[178]13[167]M(PT)[178]M(PT)[171]100
354 [139]CC[178]14[167]M(PT)[178]M(PT)[170]200
355 [139]CC[178]15[167]M(PT)[178]M(PT)[171]50
356 [139]CC[178]16[167]M(PT)[178]M(PT)[170]100
357 [141]178:[142]
358 YP[178]0:[129]I[178]1[164]40
359 [139]PS(I)[178](PT)[175]H(I)[179]5[167]YP[178]YP[170](40[172]H(I))
360 [139]PS(I)[178](PT)[175]H(I)[178]5[167]YP[178]YP[170]115
361 [130]:[153]"YOU PAY $"YP:M(PT)[178]M(PT)[171]YP:FP[178]FP[170]YP:[142]
362 CH[178]CH[170]1:[139]CH[177]16[167]CH[178]CH[171]16
363 PO[178]3[171]PT:CH$[178]CH$(CH):[139]CH[178]8[175]CJ(2)[167]CH[178]CH[170]1:CH$[178]CH$(CH)
364 [153]"LOAD          DEF? ? CHANCE ? ?":[153]CH$""
365 [139]CH[178]1[167]M(PT)[178]M(PT)[171]15:FP[178]FP[170]15
366 [139]CH[178]2[167][141]178:[137]325
367 [139]CH[178]3[167]PL(PT)[178]1:MF[178]1:[141]178:[141]175:[142]
368 [139]CH[178]4[167]M(PT)[178]M(PT)[170]150
369 [139]CH[178]5[167][141]382:MF[178]1
370 [139]CH[178]6[167][141]386:MF[178]1
371 [139]CH[178]7[167]M(PT)[178]M(PT)[170]50
372 [139]CH[178]8[167]CJ(2)[178]PT
373 [139]CH[178]9[167]M(PT)[178]M(PT)[171]50:M(PO)[178]M(PO)[170]50
374 [139]CH[178]10[167][141]388:MF[178]1
375 [139]CH[178]11[167][141]390:MF[178]1
376 [139]CH[178]12[167]PL(PT)[178]PL(PT)[171]3:MF[178]1
377 [139]CH[178]13[167][141]392:MF[178]1
378 [139]CH[178]14[167][141]394
379 [139]CH[178]15[167][141]382:MF[178]1
380 [139]CH[178]16[167][141]398:MF[178]1
381 [141]178:[142]
382 PL(PT)[178]PL(PT)[170]1:[139]PL(PT)[177]40[167][141]668:PL(PT)[178]PL(PT)[171]40
383 [139]PT$(PL(PT))[178]"RR"[167]385
384 [137]382
385 DV[178]1:[142]
386 [139]PL(PT)[177]25[167][141]668
387 PL(PT)[178]25:[142]
388 [139]PL(PT)[177]12[167][141]668
389 PL(PT)[178]12:[142]
390 [139]PL(PT)[177]6[167][141]668
391 PL(PT)[178]6:[142]
392 PL(PT)[178]40:[142]
393 [142]
394 DF[178]0:YP[178]0:[129]I[178]1[164]40
395 [139]PS(I)[178](PT)[175]H(I)[179]5[167]YP[178]YP[170](25[172]H(I))
396 [139]PS(I)[178](PT)[175]H(I)[178]5[167]YP[178]YP[170]100
397 [130]:[153]"YOU PAY $"YP:M(PT)[178]M(PT)[171]YP:FP[178]FP[178]YP:[142]
398 PL(PT)[178]PL(PT)[170]1
399 [139]PL(PT)[177]40[167][141]668:PL(PT)[178]PL(PT)[171]40
400 [139]PT$(PL(PT))[178]"U"[167]402
401 [137]398
402 MF[178]1:[142]
403 [153]"LOAD"
404 JT(PT)[178]JT(PT)[170]1
405 [153]"PLAYER #"PT"IS IN JAIL"
406 [153]:[153]"YOU HAVE BEEN IN"JT(PT)"TURNS"
407 [153]"YOU MAY:  1.  PAY $50"
408 [153]"          2.  USE  A 'GET OUT OF JAIL                 FREE CARD."
409 [153]"          3.  TRY TO ROLL DOUBLES."
410 [153]:[133]"CHOICE";I:[139]I[179]1[176]I[177]3[167]410
411 [139]I[178]1[167]M(PT)[178]M(PT)[171]50:FP[178]FP[170]50:PL(PT)[178]11:[141]178:JE[178]1:[142]
412 [139]I[178]2[175]CJ(1)[178]PT[167]CJ(1)[178]0:PL(PT)[178]11:[141]178:JE[178]1:[142]
413 [139]I[178]2[175]CJ(2)[178]PT[167]CJ(2)[178]0:PL(PT)[178]11:[141]178:JE[178]1:[142]
414 [139]I[178]2[167][153]"YOU DON'T HAVE A CARD":[137]410
415 [139]I[178]3[167][141]165:[139]DB[167]421
416 [153]"YOU DIDN'T ROLL DOUBLES."
417 [139]JT(PT)[177]2[167][153]"YOU MUST PAY THE $50":M(PT)[178]M(PT)[171]50:PL(PT)[178]11:JB[178]1
418 [139]JT(PT)[177]2[167][141]178:FP[178]FP[170]50:[142]
419 [141]178:[142]
420 [139]PL(PT)[178]11[167][141]178:JE[178]1:[142]
421 [153]"YOU MADE IT OUT!!!":PL(PT)[178]11:[141]178:JB[178]1:DB[178]0:[142]
422 [137]635
423 [153]"LOAD":[139]PF[167][153]"MONEY IN FREE PARKING JACKPOT $";FP
424 [153]"PLAYER 1 HAS $";M(1):[153]"PLAYER 2 HAS $";M(2)
425 [153]:[153]"PLAYER";PT"UP."
426 [153]:[153]:[153][163]15);"OPTIONS"
427 [153]
428 [153]"   R=REVIEW PROPERTIES"
429 [153]"   L=LIST ALL PROPERTIES"
430 [153]"   B=BUILD HOUSES/HOTELS"
431 [153]"   S=SELL PROPERTIES TO OTHER PLAYER"
432 [153]"   M=MORTAGE PROPERTIES(SELL HOUSES)"
433 [153]"   D=DISPLAY TITLE DEEDS"
434 [153]"   Q=RETURN TO GAME"
435 [153]"  XX=END GAME":[153]
436 [133]"CHOICE  SINCMDCMDCMD";C$
437 [139]C$[178]"SIN"[167]436
438 [139]C$[178]"R"[167][141]447
439 [139]C$[178]"L"[167][141]464
440 [139]C$[178]"B"[167][141]479
441 [139]C$[178]"S"[167][141]523
442 [139]C$[178]"M"[167][141]559
443 [139]C$[178]"D"[167][141]665
444 [139]C$[178]"Q"[167][142]
445 [139]C$[178]"XX"[167]643
446 [137]423
447 [133]"FOR WHICH PLAYER (1 OR 2)";PN
448 [139]PN[179]1[176]PN[177]2[167]447
449 [153]"LOAD"
450 [153][163]6)"PROPERTIES FOR PLAYER ";PN
451 [153]
452 [129]I[178]1[164]40:PO$[178]"":[139]PS(I)[178]PN[167][153]PN$(I);
453 [139]PS(I)[179][177]PN[167]460
454 [139]PT$(I)[179][177]"P"[167]458
455 [153][166]20[171]([195](PN$(I))[171]2));" -";:[139]H(I)[179]5[167]PO$[178][196](H(I))[170]" HS"
456 [139]H(I)[178]5[167]PO$[178]" HOTELWAIT"
457 PO$[178]PO$[170]"/$"[170][202]([196](P(I,H(I)[170]2)),2)
458 [139]MG(I)[178]1[167]PO$[178]"- MORTAGED"
459 [153]PO$
460 [130]
461 [153]:[139]CJ(1)[178]PN[176]CJ(2)[178]PN[167][153]"GET OUT OF JAIL FREE CARD."
462 [153]"PLAYER"PN"HAS $";M(PN)
463 [153]:[141]178:[142]
464 [153]"LOAD"
465 TT$[178]"NAME                            OWNER/CMDCMDCMDCMDCMDCMD#HOUSES":[153]TT$
466 [129]K[178]1[164]40:[139]PT$(K)[179][177]"P"[175]PT$(K)[179][177]"RR"[175]PT$(K)[179][177]"U"[167]475
467 [153]PN$(K)"";[163]21);
468 [153][163]33)
469 P$[178][196](PS(K)):PP$[178][202]([196](H(K)),2):[139]H(K)[177]4[167]PP$[178]"H"
470 [139]PT$(K)[179][177]"P"[167]PP$[178]"X"
471 [139]MG(K)[167]PP$[178]"MGWAIT"
472 P$[178]P$[170]" -"[170]PP$
473 [139]PS(K)[178]0[167]P$[178]" NONE"
474 [153]P$
475 [139]K[178]20[167][153]:[141]178:[153]"LOAD":[153]TT$
476 [130]K
477 [153]:[141]178
478 [142]
479 [153]"LOAD"
480 HO[178]0
481 [153]" ON WHICH GROUP":[153]PG$
482 [153]
483 [133]"WHICH COLOR";C$
484 [129]I8[178]1[164]41:[139]C$[178][200](C$(I8),[195](C$))[167]PL[178]I8:C$[178]C$(I8):[137]487
485 [130]I8
486 [153]"ILLEGAL GROUP":[137]483
487 P7[178]PT
488 P5[178]P7:[141]238:[139]MG[167]OA[178]0
489 [139]OA[167]492
490 [153]"SORRY YOU EITHER DON'T OWN ALL THE PROP-ERTY IN THAT GROUP OR SOME";
491 [153]" IS MORTAGED.":[141]178:[142]
492 [153]"   PROPERTY NAME    # OF HOUSES(5=HOTEL)"
493 HS[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[178]C$(I)[167][153]PN$(I)"";[163]30);H(I):HS[178]HS[170]H(I)
494 [130]
495 [153]:[153]"HOUSES FOR THIS GROUP COST $"P(PL,9)"EACH"
496 [153]"HOTELS COST $"P(PL,9)"+ 4 HOUSES OR $";(P(PL,9)[172]5)
497 [153]
498 [153]"YOU HAVE $"M(PT)
499 [153]"HOTELS AUTOMATICALLY ADDED AFTER 4TH    HOUSE"
500 [153]"HOW  MANY HOUSES DO YOU WANT TO BUY (MAX=";:MX[178]((5[172]PC)[171]HS):[153]MX")"
501 [133]HN:[139]HN[177]MX[167][137]500
502 H7[178][181](HN[173]PC):H8[178]HN[171](H7[172]PC)
503 [139]M(P7)[179](HN[172]P(PL,9))[167][153]"YOU DON'T HAVE ENOUGH MONEY!":[137]500
504 [139]HN[178]0[167][153]"OK":[141]178:[142]
505 M(P7)[178]M(P7)[171](HN[172]P(PL,9)):[129]E[178]PL[164]PL[170]4:[139]C$[178]C$(E)[167]H(E)[178]H(E)[170]H7
506 [130]
507 [139]H8[167]509
508 [137]522
509 [153]"YOU HAVE"H8"HOUSES LEFT OVER"
510 [153]:F1[178]0:[129]F[178]PL[164]PL[170]4:[139]C$[178]C$(F)[167]F1[178]F1[170]1:[153]F1,PN$(F);"  "H(F)
511 [130]:[153]:[129]G[178]1[164]H8
512 [153]"WHERE DO YOU WANT HOUSE #"G;:[133]HL:[139]HL[178]HO[167][153]"CAN'T":[137]512
513 F2[178]0:F1[178]0:F9[178]0
514 [129]F[178]PL[164]PL[170]3:[139]C$[178]C$(F)[167]F1[178]F1[170]1:[139]F1[178]HL[167]F9[178]F
515 [130]F
516 [139]F9[178]0[167][153]"NO SUCH NUMBER":[137]512
517 H2[178]0:[129]F[178]PL[164]PL[170]3:[139]C$[178]C$(F)[167][139]H(F9)[177]H(F)[167]H2[178]H2[170]1
518 [130]
519 [139]H2[167][153]"ILLEGAL DISTRIBUTION OF HOUSES!":[137]512
520 HO[178]HL:H(F9)[178]H(F9)[170]1
521 [130]G
522 [153]"DONE":[141]178:[142]
523 [133]"WHAT PLAYER HAS A PROPERTY TO SELL";P1
524 [139]P1[178]0[167][141]178:[142]
525 P2[178]P1[170]1:[139]P2[177]2[167]P2[178]P2[171]2
526 [153]"IS IT A PROPERTY";:[133]Q$:[139][200](Q$,1)[178]"N"[167]547
527 [153]"IN WHAT COLOR GROUP":[153]PG$
528 [153]:[133]"WHICH";C$
529 [129]I6[178]1[164]41:[139]C$[178][200](C$(I6),[195](C$))[167]PL[178]I6:C$[178]C$(I6):[137]532
530 [130]I6
531 [153]"ILLEGAL GROUP":[137]528
532 [153]"#  PROPERTY";[163]30);"OWNER"
533 HO[178]0:CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[153]CT"   "PN$(I)"";[163]35);PS(I)
534 [139]H(I)[167]HO[178]1
535 [130]
536 [153]:[153]"WHAT NUMBER DOES PLAYER"P1"WANT          TO SELL"
537 [133]TP
538 CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[139]CT[178]TP[167]T4[178]I:FF[178]1
539 [130]
540 [139]FF[178]0[167][153]"ILLEGAL NUMBER":[137]536
541 [139]PS(T4)[179][177]P1[167][153]"PLAYER #"P1"DOES NOT OWN IT.":[137]523
542 [139]HO[167][153]"YOU HAVE HOUSES ON THAT GROUP YOU CAN'T SELL IT.":[137]546
543 [133] "WHAT IS THE AGREED SELLING PRICE";SP
544 M(P1)[178]M(P1)[170]SP:M(P2)[178]M(P2)[171]SP:PS(T4)[178]P2
545 [153]"PLAYER #"P2"BOUGHT "PN$(T4)"":[153]"FOR $"SP
546 [153]:[141]178:[142]
547 [153]"PROPERTY";[163]30);"OWNER"
548 [129]I[178]6[164]36[169]10:N[178]N[170]1:[153]N"  "PN$(I)"";[163]35);PS(I):[130]:N[178]0
549 [153]" 5   "PN$(13)"";[163]35);PS(13):[153]" 6   "PN$(29)"";[163]35);PS(29)
550 [133]"WHICH #";NM:[139]NM[178]0[167][142]
551 [139]NM[179]1[176]NM[177]6[167]550
552 [139]NM[178]5[175]PS(13)[178]P1[167]SN[178]13:[137]556
553 [139]NM[178]6[175]PS(29)[178]P1[167]SN[178]29:[137]556
554 [139]NM[177]0[175]NM[179]5[167]SN[178]6[170]((NM[171]1)[172]10):[139]PS(SN)[178]P1[167][137]556
555 [153]"YOU DON'T OWN IT.":[137]547
556 [133]"AGREED PRICE";SP
557 M(P1)[178]M(P1)[170]SP:M(P2)[178]M(P2)[171]SP:PS(SN)[178]P2
558 [141]178:[142]
559 [153]"LOAD":[153]"  OPTIONS":[153]"0  RETURN TO MAIN MENU":[153]"1  MORTAGE PROPERTY"
560 [153]"2  MORTAGE RAILROAD":[153]"3  MORTAGE UTILITY"
561 [153]"4  LIFT MORTAGE(AT 10% INTEREST)":[153]"5  SELL HOUSES":[153]
562 [133]"CHOICE";GG:[139]GG[179]0[176]GG[177]5[167]562
563 [139]GG[178]0[167][141]178:[142]
564 [145]GG[141]566,589,598,606,669
565 [137]559
566 [153]:[153]"ON WHICH GROUP IS THE PROPERTY TO BE":[153]"MORTAGED LOCATED?":[153]PG$
567 [153]:[133]"COLOR GROUP";C$
568 [129]I6[178]1[164]41:[139]C$[178][200](C$(I6),[195](C$))[167]PL[178]I6:C$[178]C$(I6):[137]571
569 [130]I6
570 [153]"ILLEGAL GROUP":[137]567
571 CM[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]CM[178]CM[170]H(I)
572 [130]
573 [139]CM[167][153]"CAN'T MORTAGE PROPERTIES WITH HOUSES    STILL ON THAT GROUP.":[137]588
574 [153]"#  PROPERTY";[163]25);"OWNER"
575 CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[179][177]C$(I)[167]578
576 CT[178]CT[170]1:[153]CT"   "PN$(I)"";[163]27)PS(I);:PP$[178]"":[139]MG(I)[167]PP$[178]"MORTAGED"
577 [153]PP$
578 [130]
579 [153]:[153]"WHAT NUMBER IS TO BE MORTAGED.";:[133]TP
580 [139]TP[178]0[167][141]178:[142]
581 CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[139]CT[178]TP[167]T4[178]I:FF[178]1
582 [130]
583 [139]FF[178]0[167][153]"ILLEGAL NUMBER":[137]579
584 [139]PS(T4)[179][177]PT[167][153]"YOU DON'T OWN IT.":[141]178:[137]559
585 [139]MG(T4)[178]1[167][153]"ALREADY MORTAGED":[137]579
586 [153]:[153]"OK":MG(T4)[178]1
587 [153]"YOU GOT $"P(T4,8)"FOR YOUR MORTAGE.":M(PT)[178]M(PT)[170]P(T4,8)
588 [141]178:[142]
589 RC[178]0:[129]I[178]6[164]36[169]10:[139]PT$(I)[178]"RR"[167]RC[178]RC[170]1:[153]RC"  "PN$(I)"     PLR.#"PS(I)
590 [130]
591 [133]"WHICH #";RG
592 [139]RG[179]1[176]RG[177]4[167]591
593 RG[178]6[170]((RG[171]1)[172]10)
594 [139]PS(RG)[179][177]PT[167][153]"YOU DON'T OWN IT.":[141]178:[137]559
595 [139]MG(RG)[178]1[167][153]"ALREADY MORTAGED.":[141]178:[137]559
596 MG(RG)[178]1:[153]"YOU GET $100 FOR MORTAGE.":M(PT)[178]M(PT)[170]100
597 [141]178:[142]
598 U(1)[178]13:U(2)[178]29
599 [129]I[178]1[164]2:[153]I"  "PN$(U(I))"":[130]
600 [133]"WHICH?";UM
601 [139]UM[179]1[176]UM[177]2[167]600
602 [139]PS(U(UM))[179][177]PT[167][153]"YOU DON'T OWN IT.":[141]178:[137]559
603 [139]MG(U(UM))[178]1[167][153]"ALREADY MORTAGED.":[141]178:[137]559
604 MG(U(UM))[178]1:[153]"YOU GET $75 FOR MORTAGE.":M(PT)[178]M(PT)[170]75
605 [141]178:[142]
606 [153]:[153]"THESE ARE THE PROPERTIES THAT ARE UNDER A MORTAGE."
607 ML[178]0:[129]I[178]1[164]41:[139]PS(I)[178](PT)[175]MG(I)[178]1[167]ML[178]ML[170]1:[153]ML"  "PN$(I)""
608 [130]
609 [139]ML[178]0[167][153]"YOU HAVE NO MORTAGED PROPERTIES.":[141]178:[142]
610 [153]:[133]"WHICH MORTAGE DO YOU WAN'T TO LIFT";LF
611 [139]LF[179]1[176]LF[177]ML[167][153]"ILLEGAL":[137]610
612 ML[178]0:[129]I[178]1[164]41:[139]PS(I)[178](PT)[175]MG(I)[178]1[167]ML[178]ML[170]1:[139]ML[178]LF[167]FT[178]I
613 [130]
614 [153]"THE MORTAGE IS FOR $"P(FT,8)
615 [153]"YOU MUST PAY $";:PY[178]P(FT,8)[172]1.10:[153]PY
616 [139]PY[177]M(PT)[167][153]"YOU DON'T HAVE THE MONEY.":[141]178:[142]
617 M(PT)[178]M(PT)[171]PY:MG(FT)[178]0
618 [141]178:[142]
619 [139]AF[167]621
620 [142]
621 PL[178]PL(PT):[153]PN$(PL)" WILL NOW BE AUCTIONED"
622 [153]"TO THE HIGHEST BIDDER"
623 PO[178]3[171]PT:[153]:HB[178]0:PA[178]PT:AC[178]0:[153]:HB[178]0:PA[178]PT:AC[178]0
624 PA[178]3[171]PA
625 [153]"PLAYER"PA"WHAT'S YOUR BID";:[133]BD:BD[178][181](BD):AC[178]AC[170]1
626 [139]BD[178]0[167][145](AC[177]1)[170]2[137]629,624
627 [139]BD[179][178]HB[167][153]"YOU MUST BID HIGHER THAN"HB"OR BID '0'":[137]625
628 HB[178]BD:HR[178]PA:[137]624
629 [139]HB[178]0[167]634
630 [153]PN$(PL)" GOES TO"
631 [153]"PLAYER"HR" FOR $"HB
632 M(HR)[178]M(HR)[171]HB:PS(PL)[178]HR
633 [142]
634 [153]:[153]PN$(PL)" HAS NOT BEEN PURCHASED.":[142]
635 [153]"LOAD":[153]"PLAYER #"PT"IS BROKE!!"
636 [153]"IF YOU CAN'T RAISE $"[182](M(PT))"THEN YOU ARE OUT OF THE GAME."
637 [153]"DO NOT HIT 'Q' (RETURN TO GAME) UNTIL   YOU FINISH TRYING TO";
638 [153]" RAISE MONEY"
639 [141]178:[141]423
640 [139]M(PT)[177][178]0[167][142]
641 [139]M(PT)[179]0[167][153]"YOU ARE BANKRUPT!!!":PT[178]3[171]PT
642 [153]" --PLAYER #"PT"WINS!-- ":[128]
643 [153]"GAME OVER"
644 [153]"THE WINNER IS ";
645 [139]M(1)[177]M(2)[167][153]"PLAYER #1 WITH $"M(1)
646 [139]M(2)[177]M(1)[167][153]"PLAYER #2 WITH $"M(2)
647 [139] M(2)[178]M(1)[167][153]"NEITHER,  IT'S A TIE!"
648 [153]"PLAYER 1 =  $";M(1)
649 [153]"PLAYER 2 =  $";M(2)
650 [153]
651 [151]54296,0:[129]I[178]1[164]6:[151]G(I),0:[128]
652 [129]J[178]832[164]939
653 [135]I:[151]J,I:[130]
654 [131] 160,0,185,0,4,153,0,192,185,0,5,153,0,193,185,0,6,153,0
655 [131] 194,185,0,7,153,0,195,185,0,216,153,0,196,185,0,217,153,0
656 [131] 197,185,0,218,153,0,198,185
657 [131] 0,219,153,0,199,200,208,205,96,160,0,185,0,192,153,0,4,185,0,193,153
658 [131] 0,5,185,0,194,153,0,6,185,0,195,153,0,7,185,0,196,153,0,216,185,0,197
659 [131] 153,0,217,185,0,198,153,0,218,185,0,199,153,0,219,200,208,205,96
660 [142]
661 [129]P4[178]1[164]2
662 Y$[178]""[170]PN$(PL(P4))[170][200]("                ",18[171]([195](PN$(PL(P4)))[171]2))[170]"WAIT"
663 MN$[178]"$"[170][202]([196](M(P4)),2)[170]"    WAIT":X[178]13:Y[178]2[172]P4[170]3:Z$[178]Y$:[141]160
664 Y[178]Y[170]1:Z$[178]MN$:[141]160:[130]:[142]
665 [153]"DISPLAY DEEDS FOR WHICH COLOR GROUP:":[153]PG$:[133]C$:[153]
666 P3[178]PL:[129]I[178]1[164]41:[139]C$[178][200](C$(I),[195](C$))[167]GF[178]1:PL[178]I:[141]195:GF[178]0
667 [130]:PL[178]P3:[142]
668 M(PT)[178]M(PT)[170]200:[153]"COLLECTED $200":[142]
669 [153]"ON WHICH COLOR GROUP:":[153]PG$:[133]C$
670 PL[178]0:[129]I[178]41[164]1[169][171]1:[139]C$[178][200](C$(I),[195](C$))[167]PL[178]I:C$[178]C$(I)
671 [130]I:[139]PL[167]673
672 [153]"ILLEGAL GROUP":[137]669
673 DO[178]0:HN[178]0:[129]I[178]PL[164]PL[170]3:[139]PS(I)[179][177](PT)[175]C$[178]C$(I)[167]DO[178]1
674 [139]C$[178]C$(I)[167]HN[178]HN[170]H(I)
675 [130]
676 [139]DO[178]1[176]HN[178]0[167][153]"YOU DON'T OWN HOUSES ON THESE PROPERTIES":[141]178:[142]
677 [153]"#  PROPERTY";[163]25);"HOUSES(5=HOTEL)"
678 CT[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[153]CT"   "PN$(I)"";[163]27)H(I)
679 [130]
680 [133]"WANT TO REMOVE ALL THESE HOUSES";A$:[139][200](A$,1)[178]"Y"[167]694
681 [153]:[133]"WHAT # TO REMOVE A HOUSE FROM.";TP
682 [139]TP[178]0[167] [142]
683 CT[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[139]CT[178]TP[167]T4[178]I:FF[178]1
684 [130]
685 [139]FF[178]0[167][153]"ILLEGAL NUMBER":[137]681
686 [139]H(T4)[178]0[167][153]"NO HOUSES THERE.":[137]681
687 NN[178]0:NH[178]H(T4):[129]I[178]PL[164]PL[170]3:[139]H(I)[177]NH[167]NN[178]1
688 [130]
689 [139]NN[167][153]"YOU CAN'T REMOVE THAT HOUSE.":[137]681
690 [153]:[153]"OK.":H(T4)[178]H(T4)[171]1
691 HM[178]P(PL,9)[173]2
692 [153]"YOU GOT $"HM"FOR YOUR HOUSE":M(PT)[178]M(PT)[170]HM
693 [141]178:[137]559
694 HM[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]HM[178]HM[170](P(PL,9)[173]2)[172]H(I):H(I)[178]0
695 [130]:[153]"YOU GOT $"HM"FOR YOUR HOUSES":M(PT)[178]M(PT)[170]HM:[137]693
697 [176]IGNAL PROGRAM BY JOHN O'HARE:[153]"
700 PRINT"[147]THIS PROGRAM, IN B&W, WAS ORIGANALY":GOSUB999
701 PRINT"WRITTEN BY JOHN O'HARE IN 1978 FOR THE":GOSUB999
702 PRINT"2001 SERIES PET COMPUTER. THE COMMODORE":GOSUB999
703 PRINT"64 VERSION WITH COLOR AND SOUND CHANGES":GOSUB999
704 PRINT"BY TIM BORION & SAL OEPER IN LATE 1981.":GOSUB999
705 PRINT"THE PROGRAM LISTINGS ARE IDENTICAL. ONLY":GOSUB999
706 PRINT"COLOR & SOUND WERE ADDED. JOHN'S PROGRAM":GOSUB999
707 PRINT"IS KNOWN BY THOUSANDS OF PET USERS AND":GOSUB999
708 PRINT"GROUPS. THE PROGRAM IS NOT TO BE SOLD":GOSUB999
709 PRINT"AND REMAINS THE PROPERTY OF JOHN O'HARE.":GOSUB999
710 PRINT"     PRESS SHIFT TO START PROGRAM."
711 A=PEEK(653):IFATHENPRINT"[147]":RETURN
712 GOTO711
999 A=PEEK(653):IFNOTATHENRETURN